home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / m / muiv3.1cracked.lha / MUI / Developer / Modula / txt / MuiL.def < prev    next >
Text File  |  1995-11-18  |  5KB  |  176 lines
  1. DEFINITION MODULE MuiL{"muimaster.library",5}; (* note that version 5 is very old - if you need newer functions
  2.                                                   test this! 
  3.                                                *)
  4.  
  5. (***************************************************************************
  6. **
  7. ** $VER: MuiL.def 3.1 (18.11.95)
  8. **
  9. ** The following updates have been done by
  10. **
  11. **   Olaf "Olf" Peters <olf@informatik.uni-bremen.de>
  12. **
  13. ** $HISTORY:
  14. **
  15. ** 18.11.95  3.1   : updated for MUI v3.1 release
  16. **
  17. ***************************************************************************)
  18.  
  19. (*
  20. ** Modula-Interface for muimaster.library
  21. **
  22. ** MUI (c) 1993/94 by Stefan Stuntz
  23. **
  24. ** Modula-Interface done by Christian "Kochtopf" Scholz in 1993/94
  25. **
  26. ** If you got problems please contact :
  27. **
  28. **  ruebe@pool.informatik.rwth-aachen.de
  29. *)
  30.  
  31. IMPORT UD:UtilityD;
  32. IMPORT R;
  33. IMPORT MD:MuiD;
  34. FROM SYSTEM     IMPORT ADDRESS;
  35. FROM IntuitionD IMPORT IClassPtr, ObjectPtr, IDCMPFlagSet;
  36. FROM GraphicsD  IMPORT TextFontPtr, RegionPtr;
  37. FROM ExecD      IMPORT LibraryPtr;
  38. FROM MuiClasses IMPORT mCustomClassPtr, mRenderInfoPtr, ClassDispatcher;
  39. FROM MuiD       IMPORT mPenSpecPtr;
  40.  
  41. TYPE APTR       = ADDRESS;  (* for readability *)
  42. TYPE StrPtr     = ADDRESS;
  43. TYPE mImage     = ADDRESS;
  44. TYPE mImageInfo = ADDRESS;
  45.  
  46. VAR  
  47.      muiMasterVersion       : INTEGER;
  48.      muiMasterBase          : LibraryPtr;
  49.  
  50. CONST
  51.      muiMasterMinVersion    = 4;
  52.      muiMasterName          = "muimaster.library";
  53.  
  54. PROCEDURE mNewObject 
  55.             (class{R.A0}    : StrPtr;
  56.              taglist{R.A1}  : UD.TagItemPtr) : APTR ; CODE -30;
  57.  
  58. PROCEDURE mDisposeObject
  59.             (obj{R.A0}      : APTR); CODE -36;
  60.  
  61. PROCEDURE mRequestA 
  62.             (app{R.D0}      : APTR;
  63.              win{R.D1}      : APTR;
  64.              flags{R.D2}    : LONGINT;
  65.              title{R.A0}    : StrPtr;
  66.              gadgets{R.A1}  : StrPtr;
  67.              format{R.A2}   : StrPtr;
  68.              params{R.A3}   : UD.TagItemPtr): LONGINT; CODE -42;
  69.  
  70.  
  71. PROCEDURE mAllocAslRequest
  72.             (reqtype{R.D0}  : LONGINT;
  73.              taglist{R.A0}  : UD.TagItemPtr) : APTR; CODE -48;
  74.  
  75. PROCEDURE mAslRequest 
  76.             (requester{R.A0}: APTR;
  77.              taglist{R.A1}  : UD.TagItemPtr) : BOOLEAN; CODE -54;
  78.  
  79. PROCEDURE mFreeAslRequest 
  80.             (requester{R.A0}: APTR); CODE -60;
  81.  
  82. PROCEDURE mError() : LONGINT; CODE -66;
  83.  
  84. PROCEDURE MakeObject
  85.             (objtype{R.D0}      : LONGINT;
  86.              params{R.A0}       : UD.TagItemPtr) : ObjectPtr; CODE -120;
  87.  
  88. (******************************************)
  89. (* functions to be used in custom classes *)
  90. (******************************************)
  91.  
  92. PROCEDURE moSetError
  93.             (num{R.D0}      : LONGINT) : LONGINT; CODE -72;
  94.  
  95. PROCEDURE moGetClass
  96.             (classname{R.A0}: StrPtr) : IClassPtr; CODE -78;
  97.  
  98. PROCEDURE moFreeClass
  99.             (classptr{R.A0} : IClassPtr); CODE -84;
  100.  
  101.  
  102. PROCEDURE moRequestIDCMP
  103.             (obj{R.A0}      : ObjectPtr;
  104.              flags{R.D0}    : IDCMPFlagSet); CODE -90;
  105.  
  106. PROCEDURE moRejectIDCMP
  107.             (obj{R.A0}      : ObjectPtr;
  108.              flags{R.D0}    : IDCMPFlagSet); CODE -96;
  109.  
  110. PROCEDURE moRedraw
  111.             (obj{R.A0}      : ObjectPtr;
  112.              flags{R.D0}    : LONGCARD) : APTR; CODE -102;
  113.  
  114. PROCEDURE moAddClipping
  115.             (mri{R.A0}  : mRenderInfoPtr;
  116.              left{R.D0},
  117.              top{R.D1},
  118.              width{R.D2},
  119.              height{R.D3} : INTEGER) : APTR; CODE -168;
  120.  
  121. PROCEDURE moRemoveClipping
  122.             (mri{R.A0}    : mRenderInfoPtr;
  123.              handle{R.A1} : APTR) ; CODE -174 ;
  124.  
  125. PROCEDURE moAddClipRegion
  126.             (mri{R.A0} : mRenderInfoPtr;
  127.              r{R.A1}   : RegionPtr) : APTR ; CODE -180;
  128.  
  129. PROCEDURE moRemoveClipRegion
  130.             (mri{R.A0}    : mRenderInfoPtr;
  131.              handle{R.A1} : APTR) ; CODE -186;
  132.  
  133. PROCEDURE moBeginRefresh
  134.             (mri{R.A0}    : mRenderInfoPtr;
  135.              flags{R.D0}  : LONGINT) : BOOLEAN ; CODE -192 ;
  136.  
  137. PROCEDURE moEndRefresh
  138.             (mri{R.A0}    : mRenderInfoPtr;
  139.              flags{R.D0}  : LONGINT) ; CODE -198 ;
  140.  
  141. PROCEDURE moCreateCustomClass
  142.             (base{R.A0}         : LibraryPtr;
  143.              supername{R.A1}    : StrPtr;
  144.              supermcc{R.A2}     : mCustomClassPtr;
  145.              datasize{R.D0}     : LONGINT;
  146.              dispatcher{R.A3}   : ClassDispatcher) : mCustomClassPtr;  CODE -108;
  147.  
  148. PROCEDURE moDeleteCustomClass
  149.             (mcc{R.A0}          : mCustomClassPtr) : BOOLEAN; CODE -114;
  150.  
  151.  
  152. PROCEDURE moObtainPen
  153.             (mri{R.A0}  : mRenderInfoPtr;
  154.              spec{R.A1} : mPenSpecPtr) : LONGINT ; CODE -156;
  155.  
  156. PROCEDURE moReleasePen
  157.             (mri{R.A0} : mRenderInfoPtr;
  158.              pen{R.D0} : LONGINT) ; CODE -162 ;
  159.  
  160.  
  161. (*************************************************************)
  162. (* layout function, use only in custom layout callback hook! *)
  163. (*************************************************************)
  164.  
  165. PROCEDURE moLayout
  166.             (obj{R.A0}    : ObjectPtr;
  167.              left{R.D0},
  168.              top{R.D1},
  169.              width{R.D2},
  170.              height{R.D3} : LONGINT;
  171.              flag{R.D4}   : LONGCARD) : BOOLEAN; CODE -126;
  172.  
  173. END MuiL.
  174.  
  175.  
  176.